home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / amiga / modelers / graphtal.lzh / Graphtal.Amiga / Examples / torus.lsys < prev    next >
Encoding:
Text File  |  1992-10-30  |  200 b   |  40 lines
  1. lsystem Torus;
  2.  
  3. const step = 20;
  4.  
  5. table MakeTorus
  6. {
  7.   A -> F(10) pt(360/step) A;
  8. };
  9.  
  10. attributes {
  11.   axiom wi(3) G(5) tu(110) A;
  12.   derivation MakeTorus(step);
  13.  
  14.   coneres 10;
  15. };
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.